home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / gentoo_GLSA-200412-04.nasl < prev    next >
Text File  |  2005-03-31  |  2KB  |  65 lines
  1. # This script was automatically generated from 
  2. #  http://www.gentoo.org/security/en/glsa/glsa-200412-04.xml
  3. # It is released under the Nessus Script Licence.
  4. # The messages are release under the Creative Commons - Attribution /
  5. # Share Alike license. See http://creativecommons.org/licenses/by-sa/2.0/
  6. #
  7. # Avisory is copyright 2001-2004 Gentoo Foundation, Inc.
  8. # GLSA2nasl Convertor is copyright 2004 Michel Arboi
  9.  
  10. if (! defined_func('bn_random')) exit(0);
  11.  
  12. if (description)
  13. {
  14.  script_id(15921);
  15.  script_version("$Revision: 1.1 $");
  16.  script_xref(name: "GLSA", value: "200412-04");
  17.  script_cve_id("CAN-2004-0976");
  18.  
  19.  desc = 'The remote host is affected by the vulnerability described in GLSA-200412-04
  20. (Perl: Insecure temporary file creation)
  21.  
  22.  
  23.     Some Perl modules create temporary files in world-writable
  24.     directories with predictable names.
  25.   
  26. Impact
  27.  
  28.     A local attacker could create symbolic links in the temporary
  29.     files directory, pointing to a valid file somewhere on the filesystem.
  30.     When a Perl script is executed, this would result in the file being
  31.     overwritten with the rights of the user running the utility, which
  32.     could be the root user.
  33.   
  34. Workaround
  35.  
  36.     There is no known workaround at this time.
  37.   
  38. References:
  39.     http://cve.mitre.org/cgi-bin/cvename.cgi?name=CAN-2004-0976
  40.     http://www.trustix.org/errata/2004/0050/
  41.  
  42.  
  43. Solution: 
  44.     All Perl users should upgrade to the latest version:
  45.     # emerge --sync
  46.     # emerge --ask --oneshot --verbose ">=perl-5.8.5-r2"
  47.   
  48.  
  49. Risk factor : Medium
  50. ';
  51.  script_description(english: desc);
  52.  script_copyright(english: "(C) 2004 Michel Arboi");
  53.  script_name(english: "[GLSA-200412-04] Perl: Insecure temporary file creation");
  54.  script_category(ACT_GATHER_INFO);
  55.  script_family(english: "Gentoo Local Security Checks");
  56.  script_dependencies("ssh_get_info.nasl");
  57.  script_require_keys('Host/Gentoo/qpkg-list');
  58.  script_summary(english: 'Perl: Insecure temporary file creation');
  59.  exit(0);
  60. }
  61.  
  62. include('qpkg.inc');
  63. if (qpkg_check(package: "dev-lang/perl", unaffected: make_list("rge 5.8.5-r2", "ge 5.8.6-r1"), vulnerable: make_list("lt 5.8.5-r2", "eq 5.8.6")
  64. )) { security_warning(0); exit(0); }
  65.